home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Screenblankers / BlitzBlank 2.60 / UnInstall_BlitzBlank < prev    next >
Text File  |  1996-09-26  |  4KB  |  182 lines
  1. ; UnInstall-Script for BlitzBlank 2.50
  2.  
  3. (if (= @language "deutsch")
  4.   (
  5.     (set text01 "Ja")
  6.     (set text02 "Nein")
  7.     (set text03 "Wollen Sie BlitzBlank wirklich von Ihrer Festplatte entfernen?")
  8.     (set text04 "In welchem Verzeichnis befindet sich die BlitzBlank-Schublade?")
  9.     (set text05 "Wo befindet sich die Schublade mit den Modulen?")
  10.     (set text06 "Wo befindet sich BlitzBlankPrefs?")
  11.     (set text07 "Wo befindet sich die Anleitung?")
  12.     (set text08 "Wo befindet sich BlitzBlank selbst auf Ihrer Festplatte?")
  13.     (set text09 "Wo befindet sich Ihr LIBS:-Verzeichnis?")
  14.     (set text10 "Hatten Sie die Entwickler-Files installiert?")
  15.     (set text11 "Wo befindet sich die Entwickler-Schublade?")
  16.     (set text12 "Alle BlitzBlank-Files werden jetzt gelöscht!")
  17.     (set text13 " wirklich löschen?")
  18.     (set text14 "Alle BlitzBlank-Files wurden gelöscht.")
  19.   )
  20. )
  21.  
  22. (if (= @language "english")
  23.   (
  24.     (set text01 "Yes")
  25.     (set text02 "No")
  26.     (set text03 "Do you really want to remove BlitzBlank from your harddisk?")
  27.     (set text04 "In which directory is the BlitzBlank drawer located?")
  28.     (set text05 "Where is the module's drawer located?")
  29.     (set text06 "Where is BlitzBlankPrefs?")
  30.     (set text07 "Where is the documentation?")
  31.     (set text08 "Where is BlitzBlank itself located?")
  32.     (set text09 "Where is your LIBS:-directory?")
  33.     (set text10 "Did you have the developer material installed?")
  34.     (set text11 "Where is the developer drawer?")
  35.     (set text12 "All BlitzBlank files will now be deleted!")
  36.     (set text13 " really delete?")
  37.     (set text14 "All BlitzBlank files have been deleted.")
  38.   )
  39. )
  40.  
  41. (if (NOT (askbool
  42.       (prompt text03)
  43.       (help @askchoice-help)
  44.       (choices text01 text02)
  45.       (default 0)
  46.     ))
  47.   (exit (quiet))
  48. )
  49.  
  50. (run "SYS:Rexxc/RX \"ADDRESS 'BLITZBLANK' 'QUIT'\"")
  51.  
  52. (set @default-dest
  53.     (askdir
  54.         (prompt text04)
  55.         (help @askdir-help)
  56.         (default @default-dest)
  57.     )
  58. )
  59.  
  60. (set maindir @default-dest)
  61.  
  62. (set @default-dest
  63.   (tackon @default-dest "BlitzBlank")
  64. )
  65.  
  66. (set moddir
  67.     (askdir
  68.         (prompt text05)
  69.         (help @askdir-help)
  70.         (default @default-dest)
  71.     )
  72. )
  73.  
  74. (set bbprefsdir
  75.     (askdir
  76.         (prompt text06)
  77.         (help @askdir-help)
  78.         (default @default-dest)
  79.     )
  80. )
  81.  
  82. (set docdir
  83.     (askdir
  84.         (prompt text07)
  85.         (help @askdir-help)
  86.         (default bbprefsdir)
  87.     )
  88. )
  89.  
  90. (set blitzblankdir
  91.     (askdir
  92.         (prompt text08)
  93.         (help @askdir-help)
  94.         (default "SYS:WBStartup/")
  95.     )
  96. )
  97.  
  98. (set libdir
  99.     (askdir
  100.         (prompt text09)
  101.         (help @askdir-help)
  102.         (default "LIBS:")
  103.     )
  104. )
  105.  
  106. (if (AND (NOT (= (getassign "Locale") "")) (NOT (= @language "english")))
  107.   (set localedir
  108.     (tackon "Locale:Catalogs" @language)
  109.   )
  110.   (set localedir "")
  111. )
  112.  
  113. (if (askbool
  114.       (prompt text10)
  115.       (help @askchoice-help)
  116.       (choices text01 text02)
  117.       (default 0)
  118.     )
  119.     (set devdir
  120.         (askdir
  121.             (prompt text11)
  122.             (help @askdir-help)
  123.             (default @default-dest)
  124.         )
  125.     )
  126.     (set devdir "")
  127. )
  128.  
  129. (message text12)
  130.  
  131. (run "c:delete %s ALL FORCE" (cat (cat "\"" (tackon moddir "Modules")) "\""))
  132. (delete (tackon moddir "Modules.info"))
  133.  
  134. (delete (tackon bbprefsdir "BlitzBlankPrefs"))
  135. (delete (tackon bbprefsdir "BlitzBlankPrefs.info"))
  136.  
  137. (delete (tackon docdir "BlitzBlank.guide"))
  138. (delete (tackon docdir "BlitzBlank.guide.info"))
  139.  
  140. (delete (tackon blitzblankdir "BlitzBlank"))
  141. (delete (tackon blitzblankdir "BlitzBlank.info"))
  142.  
  143. (delete (tackon libdir "blitzblank.library"))
  144.  
  145. (if (localedir)
  146.   (delete (tackon localedir "blitzblank.catalog"))
  147. )
  148.  
  149. (if (devdir)
  150.   (
  151.     (run "c:delete %s ALL FORCE" (cat (cat "\"" (tackon devdir "Developer")) "\""))
  152.     (delete (tackon devdir "Developer.info"))
  153.   )
  154. )
  155.  
  156. (run "c:delete %s ALL FORCE" (cat (cat "\"" (tackon maindir "BlitzBlank")) "\""))
  157. (delete (tackon maindir "BlitzBlank.info"))
  158.  
  159. (delete "ENV:MUI/BlitzBlankPrefs.prefs")
  160. (delete "ENVARC:MUI/BlitzBlankPrefs.prefs")
  161. (delete "ENV:MUI/BBPREFS.wini")
  162. (delete "ENVARC:MUI/BBPREFS.wini")
  163.  
  164. (delete "ENV:BlitzBlank.prefs"
  165.   (prompt "ENV:BlitzBlank.prefs" text13)
  166.   (help "")
  167.   (confirm)
  168. )
  169.  
  170. (delete "ENVARC:BlitzBlank.prefs"
  171.   (prompt "ENVARC:BlitzBlank.prefs" text13)
  172.   (help "")
  173.   (confirm)
  174. )
  175.  
  176. (run "c:avail flush")
  177. (run "c:avail flush")
  178.  
  179. (message text14)
  180.  
  181. (exit (quiet))
  182.